home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Start Menu 11.xpl < prev    next >
Text File  |  2002-12-06  |  3KB  |  118 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Start menu\Windows XP\New Start Menu"
  5. "NAME"="Start Menu Options #2"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0000011"
  9. "TEXT 1"="dⁿdel dⁿ"
  10. "DESCRIPTION 1"="Show highlighted: When you install a new application that creates an entry into your Start Menu, it will be highlighted so you can easily see which items are new."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Applies to the New Start Menu only"
  15. "COMMENT 2"="Setting 1 found at WinGuides - http://www.winguides.com/registry/display.php/1221/"
  16. "COMMENT 3"=""
  17. "COMMENT 4"=""
  18.  
  19.  
  20.   sV_HighlightProg="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_NotifyNewApps"
  21.  
  22. SUB Plugin_Initialize
  23.  'XP
  24.  Call SetUIElement(1,"Show new items in Start Menu highlighted")
  25.  Call ReadIt_2(1,sV_HighlightProg)
  26.  
  27.  
  28. END SUB
  29.  
  30. SUB Plugin_CheckData(ElementIndex)
  31. END SUB
  32.  
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  Call WriteIt_2(1,sV_HighlightProg)
  35.  
  36.  
  37.  Call IndicateSettingChange()
  38.  Call Logoff()
  39. END SUB
  40.  
  41. SUB Plugin_Terminate
  42. END SUB
  43.  
  44.  
  45.  
  46.  
  47.  
  48. Sub ReadIt(ITM,PATH1)
  49.  if RegValueExists(PATH1)=false then 'setting available?
  50.     'no setting -> item visible
  51.     Call SetUIElementEx(ITM,true)
  52.  else
  53.     i=RegReadValue(PATH1)
  54.     if IsNumeric(i)=true then
  55.        if i=0 then 
  56.            Call SetUIElementEx(ITM,true)
  57.        end if
  58.     end if
  59.  end if
  60. End Sub
  61.  
  62. Sub ReadIt_2(ITM,PATH1)
  63.  if RegValueExists(PATH1)=false then 'setting available?
  64.     'no setting -> item not visible
  65.     Call SetUIElementEx(ITM,false)
  66.  else
  67.     i=RegReadValue(PATH1)
  68.     If IsNumeric(i)=true then   
  69.        if i=1 then 
  70.           Call SetUIElementEx(ITM,true)  
  71.        end if
  72.     end if
  73.  end if
  74. End Sub
  75.  
  76. Sub ReadIt_3(ITM,PATH1)
  77.  if RegValueExists(PATH1)=false then 'setting available?
  78.     'no setting -> item is active
  79.     Call SetUIElementEx(ITM,true)
  80.  else
  81.     s=RegReadValue(PATH1)
  82.     if LCase(s)="yes" then 
  83.        Call SetUIElementEx(ITM,true)  
  84.     end if
  85.  end if
  86. End Sub
  87.  
  88. Sub WriteIt(ITM,PATH1)
  89.  b=GetUIElementEx(ITM)
  90.  if b=true then
  91.  
  92.     s=RegReadValue(PATH1)
  93.     if IsEmpty(s)=false then
  94.        Call RegDeleteValue(PATH1)
  95.     end if
  96.  
  97.  else
  98.     Call RegWriteValue(PATH1,1,2)
  99.  end if
  100. End Sub
  101.  
  102. Sub WriteIt_2(ITM,PATH1)
  103.  b=GetUIElementEx(ITM)
  104.  if b=true then
  105.     Call RegWriteValue(PATH1,1,2)
  106.  else
  107.     Call RegWriteValue(PATH1,0,2)
  108.  end if
  109. end Sub
  110.  
  111. Sub WriteIt_3(ITM,PATH1)
  112.  b=GetUIElementEx(ITM)
  113.  if b=true then
  114.     Call RegWriteValue(PATH1,"YES",1)
  115.  else
  116.     Call RegWriteValue(PATH1,"NO",1)
  117.  end if
  118. End Sub